10 ' Сколько чисел больше своих соседей справа и слева?
20 CLS
30 KOL = 0
40 INPUT "Введи первые два числа <> 0"; PRED, X
50 IF PRED = 0 OR X = 0 THEN 40
60 WHILE X <> 0
70 INPUT "Очередное число (0 - выход)"; SLED
80 IF X > PRED AND X > SLED THEN KOL = KOL + 1
90 PRED = X
100 X = SLED
110 WEND
120 PRINT "Больше своих соседей"; KOL; "чисел."
130 END